perm filename VRTUAL.DCL[PIC,HE] blob sn#421665 filedate 1979-02-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  external  simple  procedure  isort(
C00004 ENDMK
CāŠ—;
  external  simple  procedure  isort(
    integer  array  old, key;
    reference  integer  array  new;
    integer  b, e;
    boolean  same);
external  simple  procedure  sort1(
	reference  integer  array  key, data;
	integer  b, e);
external  safe  real    array  sd, cd [0:359];
external  simple  procedure  makecs;
external  simple  procedure  sort1r(
	reference  real  array  key;
	reference  integer  array  data;
	integer  b, e);
external  simple  procedure  sort2r(
	reference  real  array  key;
	reference  integer  array  data1, data2;
	integer  b, e);